﻿Imports System.ComponentModel 
Imports System.Collections.ObjectModel   

Imports System.Threading.Tasks

Public Class CTBench
    
 

private _benchControl     as string 
private _tipoValor        as string 
private _emisora          as string 
private _serie            as string 
private _peso             as string 
private _codigoDecalog    as string 
private _instrumento      as string 
private _numInstrumento   as string 
private _cveBench         as string 
    



Private _columnas(8)       As String         

Public Const  NUM_PROPIEDADES As Integer = 8



Public Sub new( )
_benchControl = ""
_tipoValor    = ""
_emisora      = ""
_serie        = ""
_peso         = ""
_codigoDecalog  = ""
_instrumento    = ""
_numInstrumento = ""
_cveBench       = ""




End Sub


Public Sub new(ByVal benchControl As String, ByVal tipoValor As String, ByVal emisora As String, ByVal serie As String, ByVal peso As String)
 _benchControl= benchControl 
 _tipoValor   = tipoValor 
 _emisora     = emisora 
 _serie       = serie 
 _peso        = peso 


End Sub

 

Default  Property Columnas(ByVal index As Integer) As String
    Get
        
        Select Case index 
           Case 0
                Return _benchControl
           Case 1
                Return _tipoValor     
           Case 2
                Return  _emisora
           Case 3
                Return _serie
           Case 4
                Return _peso 
           Case 5
                Return _codigoDecalog
           Case 6
                Return _instrumento   
           Case 7
                Return _numInstrumento
           Case 8
                Return _cveBench
           Case else
                Return Nothing 
        End Select

    End Get
    Set(ByVal value As String)
        
       Select Case index 
           Case 0
                 _benchControl = value           
              
           Case 1
                 _tipoValor = value                  
                 
           Case 2
                _emisora = value 
                
           Case 3
                _serie = value 
                
           Case 4
                _peso = value 
           Case 5
                _codigoDecalog = value 
           Case 6
                _instrumento   = value 
           Case 7
                _numInstrumento = value 
           Case 8
                _cveBench = value          
        End Select 

    End Set
End Property





Public Property BenchControl() As String
    Get
        Return _benchControl
    End Get
    Set(ByVal value As String)
        _benchControl = value        
         
    End Set
End Property

Public Property TipoValor() As String
    Get
        Return _tipoValor 
    End Get
    Set(ByVal value As String)
        _tipoValor = value 
        
    End Set
End Property

Public Property Emisora() As String
    Get
        Return _emisora
    End Get
    Set(ByVal value As String)
        _emisora = value
         
    End Set
End Property

Public Property Serie() As String
    Get
        Return _serie
    End Get
    Set(ByVal value As String)
        _serie = value  
       
    End Set
End Property

Public Property Peso() As String
    Get
        Return _peso
    End Get
    Set(ByVal value As String)
        _peso = value

  
    End Set
End Property

Public Property CodigoDecalog() As String
    Get
        Return _codigoDecalog 
    End Get    

    Set (ByVal value As String )
         _codigoDecalog = value
 
    End Set
End Property

Public Property Instrumento() As String
    Get
        Return _instrumento
    End Get

    Set (ByVal value As String )
         _instrumento = value
       

    End Set
   
End Property

Public Property NumInstrumento() As String
    Get
        Return _numInstrumento 
    End Get
    
    
    Set (ByVal value As String )
         _numInstrumento = value

    End Set
    

End Property

Public Property CveBench() As String
    Get
        Return _cveBench
    End Get

    Set (ByVal value As String )
        _cveBench = value

    End Set
    
  
End Property



End Class
